function rule=ruleGen(N,PairR)
rule=zeros(N,N);
for i=1:size(PairR,1)
    if (PairR(i,1)>0)
        if (PairR(i,3)==0)
            rule(PairR(i,1),PairR(i,2))=1;    
        else
            rule(PairR(i,1),PairR(i,2))=-1;
        end
    end
end
return;